home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / intrfc62.zip / GLOBALS.PAS < prev    next >
Pascal/Delphi Source File  |  1991-05-02  |  1KB  |  47 lines

  1. unit globals;
  2.  
  3. interface
  4.  
  5. type
  6.   word_array_ptr = ^word_array;
  7.   word_array=array[0..32760] of word;
  8.   byte_array_ptr = ^byte_array;
  9.   byte_array=array[0..65520] of byte;
  10.   option = (do_header,do_src_files,do_src_lines,
  11.              do_name_list,do_implementation,do_entry_pts,
  12.              do_code_blocks,do_const_blocks,do_dll_blocks,
  13.              do_var_blocks,do_unit_blocks,
  14.              do_code,do_const,do_reloc,do_vmt,do_locals);
  15. const
  16.   tpl_name : string[12] = 'TURBO.TPL';
  17. var
  18.   buffer,tpl_buffer : byte_array_ptr;
  19.   code_buf,const_buf,reloc_buf,vmt_buf : byte_array_ptr;
  20.   code_ofs,const_ofs,reloc_ofs,vmt_ofs : longint;
  21.   tpl_size : longint;
  22.   f:file;
  23.   got_tpl : boolean;
  24.   just_tpl : pointer;
  25.   unit_size : word;
  26.   unitname,uses_path : string;
  27.   indentation : word;
  28.  
  29. const
  30.   active_options : set of option = [do_name_list];
  31.   tab = ^I;
  32.   oneindent = '  ';
  33.  
  34. procedure indent;
  35.  
  36. implementation
  37.  
  38. procedure indent;
  39. var
  40.   count : word;
  41. begin
  42.   for count := 1 to indentation do
  43.     write(oneindent);
  44. end;
  45.  
  46. end.
  47.